package StatementDto;

##########################
#     OmnibusProxy       #
#    Krzysztof Ulman     #
# Politechnika Krakowska #
#      Kraków 2012       #
##########################

use strict;
use warnings;

#konstruktor
sub new {
	shift;
	my $self = {};
	bless $self;
	
	return $self;	
}

sub getStatementId {
	my $self = shift;
	return $self->{statementId};
}

sub setStatementId {
	my $self = shift;
	my $statementId = shift;
	$self->{statementId} = $statementId;
}

sub getNewStatementId {
	my $self = shift;
	return $self->{newStatementId};
}

sub setNewStatementId {
	my $self = shift;
	my $statementId = shift;
	$self->{newStatementId} = $statementId;
}

sub getStatement {
	my $self = shift;
	return $self->{statement};
}

sub setStatement {
	my $self = shift;
	my $statement = shift;
	$self->{statement} = $statement;
}

sub getTokensNum {
	my $self = shift;
	return $self->{tokensNum};
}

sub setTokensNum {
	my $self = shift;
	my $tokensNum = shift;
	if(!$tokensNum) {
		$tokensNum = 0;
	}
	$self->{tokensNum} = $tokensNum;
}

1;